t 



9 - 
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1 * GENERAL AUTOMATION IHQ 1 ALL RIGHTS RESERVED 

2 ************************************************** 

3 * 

4 * PROGRAM NAME FpH-3.8 

5 * 

6 * MODEL NUMBER 8FQ18 

7 * 

8 # PURPOSE FORTRAN PMASE*18 

9 * 

10 * PROGRAMMER DjCK KALLMANN 

11 * 

12 ***************** REVISION LIST ************** 

13 * 

14 * RV DATE SCO BY RfeASQN FOR CHANGE 

15 * m w _f.-^w ff -- «(••«« .USB' •♦ff*^»!"* ,, ""e8''*B«* , fP* 

17 I 01 11/16/70 NONE RPH INITIAL RELEASE 

18 * 

19 ************************************************** 

20 ************************************************** 

21 HDNG MPX FORTRAN ** EXPANDER II 

22 ************************************************** 

23 *STATUS-VERSJON 1, MODIFICATION 

24 * 

25 *FUNCTI0N/QPERATIQN* { 

26 * * REPLACES ARITHMETIC* ?TMNT FUNCTION, CALLi 

27 * AND IF STATEMENTS NOT INVOLVING SUBSCRIPT^ 

28 * VARIABLES BY COMPUER*GENERaTED CODING 

29 * * COMPLETES THE REPLACEMENT OF ARITHMETIC, 

30 * STMNTFUNCTlONi CALL* AND ir SIMNTS THAT OP 

31 * INVOLVE SUBSCRIPTED VARIABLES BY COMPILER** 

32 * GENERATED CODING, 

33 * * OPTIMIZES IF STMNT BRANCH INSTRUCTIONS, 

34 * * HANDLES MIXED MODE ARITHMETIC 

35 # 

36 *ENTRY POINTS" 

37 * * START-PHASE 18 IS REAU INTO CQHE BY PHASE 

38 * 17 VIA ROLRX," feXECUTjON IS BEGUN AT' 

39 * LOCATION LABLED~STANT, 

40 * 

41 *INPUT- 

42 * * THE STATEMENT STRI.NG 

43 * * THE SYMBOL TABLE 

44 * * THE FORTRAN COMMUNICATION AREA 

45 * 

46 *OUTPUT- 

47 * * THE STATEMENT STRI.NG 

48 * * THE SYMBOL TABLE 

49 * * THE FORTRAN COMMUNICATION AHEA 

50 * 

51 *EXTERNAL REFERENCES* 

52 * * SUBROUTINES 

53 * ROLRX, RQLR 

54 * 

55 *EXITS- 

56 * * NORMAL* 

57 * PHASE 20 IS LOADED BY RQLRX 

58 * AND CONTROL PASSED TO IT 

59 * * ERRORS* 



SEITE 



60 * OVERLAP" 

61 « PHASE 20 IS LPAOEU B* RQLRX 

62 * AND CQNTRQl PASSED JQ IT 

63 * SYNTAX. 

64 * NO SYNTAX ERRORS ARE DETECTED, 

65 * 

66 *TABLES/WQRK AREAS- 

67 * * THE STATEMENT STRING 

68 # * THE SYMBOL TABLE 

69 * * THE FORTRAN COMMUNICATION AREA 

70 * 

71 ♦ATTRIBUTES-N/A 

72 * 

73 *NOTES- 

74 * THE SWITCHES USED IN PHASE 18 FOLLOW, IF 

75 * POSITIVE, THE SWITCH IS TRANSFER T, JF ZERO, 

76 * THE SWITCH IS NORMAL N, IF MINUS* THE SWITCH! 

77 * IS NEGATIVE M, 

78 * * MODSW-MODE OF ARITHMETIC 

79 * H SWJTCH NOT $%T i 

80 * T FIXED MODE ARITHMETIC 

81 * M FLOATING'MUDE ARITHMETIC 

82 * * STNCH-STATEMENT NUMBER 

83 * N STMNT HAS NO STMNT NUMBER 

84 * T STMNT HAS STMNT NUMBER 

85 * * TEMP -OUTPUT SWITCH 

86 * T OUTPUT PROCESSED PA*TS OF STMNT' 

87 * WHILE SEARCHING FOR NEXT NOT 

88 * PROCESSED UPTR IN SUBROUTINE 

89 * FINDN 

90 ************************************************** 

91 HDNG MPX FORTRAN'** EXPANDER 1.1 

92 ^as £^p c^/z^ 

93 * 

94 # SYSTEM EQUATES 

95 * 

++- MEMRY EOU rTTT^ cJ>/Z*T MAXIMUM CORE SIZE 

97 PHSIZ EQU 4*320 MAXIMUM PHASE SIZE 

98 OVERL EOU MEMRY. PHSIZ RHASgS 2*29 START 

99 FCOM EQU OVERL-22 FOKTHAN COMM, TABLE! 
10Q PHNTB EQU FCOM-56 PHASE T A ^UE 

101 ROLRX EQU PHNTB.5Q INTERPHASE CALL 

102 ************************************************** 

104 * FORTRAN COMMUNICATION AREA 

105 * 

106 ORG FCOM 

107 SOFS BSS 1 START OF STRING 

108 EOFS BSS 1 END OF STRjNG 

109 SOFST BSS 1 START OF SYMBOL TABLE 

110 SQFNS BSS 1 START OF NQN»STATI=MENT NUMBERS 

111 SOFXT BSS 1 STARf OF SUBSCRIPT TEMPORARIES 

112 SOFGT BSS 1 START OF GENERATED TEMPORARIES 

113 EQFST BSS 1 END OF SYMBOL TABLE 

114 COMON BSS 1 NEXT AVAILABLE COMMON 

115 CSIZE BSS 1 SIZE Of. COMMON 

116 ERROR BSS 1 OVERLAP &RROH 

117 FNAME BSS 1 PROGRAM NAME 

118 BSS 1 2ND WORU PROG NA"E 

119 SORF BSS 1 SUBROUTINE « gR FUNCTION 
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120 

121 

122 

123 

124 

125 

12$ 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 



CCWD BSS 



* 
* 

* 
# 

IOCS 

* 

DFCNT 

LCOMN 

# 

ICCER 






START 

EXIT 
P1011 



* 
P1021 

P1022 



8IT 


15 


BIT 


14 


8IT 


13 


BIT 


12 


BIT 


11 


BIT 


10 


BIT 


9 



BSS 
< 

BSS 

BSS 
BSS 
BSS 



* 
P1023 



HDNG 

ORG 

LD ' 

BSC 

UD 

S 

BSC 

BSI 

DC 

UDX 

LDX 

MDX 



MDX 

MDX 

UD 

AND 

A 

STO 

AND 

STO 

STX 

STX 

MDX 

UD 

BSC 

MDX 

UD 

A 
STO 

MDX 
MDX 
UD 
STO 



CONTROL CARD WORD 
-*TR"ANSrEK TRACE 
ARITHMETIC TRACE 
EXTENDER PRECISION 
LIST SYMBOL TABLE 
Ll'St SUBPROGRAM NAMES 

List source program 

ONE'WQRU INTEGERS 
JOCS CONTROL CARD WORD 

SEE PHASE ONE FOR BIT PATTERNS 



1 DEFINE FILE COUNT 

2 SUE OF INSKEL COMMON 

2 IOCS CONTROL CARD ERROR 

2 SYSTEM LOADER USE 

END OF FORTRAN COMMUNICATION 

AREA 
MPX FORTRAN ** EXPANDER II 
OyERL ORIWIN fO FORT OVERLAY H 
ERROR CHECK FOR OVERLAP ERROR 
EXITiZ BRANCH IF YES 
EQF5 GET'StRJNQ ENDING ADDR 
SOFS COMKARE TO STARTING ADDR! 
CONT CONTINUE PRO&RAM INITIALIZE 
RQLRX CALL IN PHASE 20 
20 NEXT PHASE NUMBER 

SQFIS INITIALISE STRING J/P PT 
SOFS INi'TjALUE STRING O/P PT 
-1 



U 
L 
L 
L 

L 

II 

12 

2 



EXTRACTS THE STMNT (0 TYPE 



1 
2 

1 

3 
3 
2 
3 

3 



HF8Q3.Z 

FOUR-Z 



HF8Q0-Z 

STTYP-Z 

L2 OUTJD 

LI INID 
1 1 
1 -I 

L PlQ23,E 
P1031 



MOVE STRING I/P PT 
MOVE STRING 0/P PT 
LOAD STHNT ID WORD 
ELIMINATE NORM IN ID 
ADD ONE TO NORM 
PUf UN OUTPUT STRING 
GET ID TYPE 
SAVE ID TYRE 
SAVE A8DR OF O/P ID 
SAVE APDK OF I/P ID 
MOVE I/P. STRING PT 
LOAD STMNT IP WORD 
BRANCH IF HAVE STMNT 
TEST~STMNT TYPE 



word: 



NO, 



3 FQUR-Z INCREMENT NORM 

I OUTJD BYONE 

I OOTID PUT MAQK ON OUTPUT STRJNgi 

1 1 MOVE I/P PT 

2 1 MOVE O/P PT 

1 -l LCAD STMNT NOi 

2 PUf ON OUTPUT STRING 
CHECKS FOR A UALLi IF, ARITHMETIC, 
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180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212 

213 

214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232 

233 

234 

235 

236 

237 
238 
239 



P1031 ID 

STO 

* 

UD 

S 

BSC 

ID 

S 

BSC 

S 

BSC 
S 

BSC 
UD 
S 

BSC 
MDX 
MDX 
A7A72 UD 
S 

BSC 
S 

BSC 
S 

BSC 
MDX 
BSC 

HERE UD 
BSC 
MDX 
S 

BSC 
S 
BSC 

* 



P1041 UDX 
UDX 
UD 
AND 
STO 

P1042 UD 
STO 
MDX 
MDX 

* 

* 

UD 
S 

BSC 

P1044 STX 
BSC 

* 



STMNT FUNCTION STATEMENT 

3 

3 MQDSW*Z Z.ERQ MQPE SWITCH 



ARITHMETIC §TMNT FUNCTION 
LOAD STMNT IP TYPE 
IS" IT ARITHMETIC STMNT FJNC 

. BRANCH IF YES 
LOAD STMNT IP TYPE 
SUBTRACT REAP CONSTANT 
SKIP'lr READ 
TEST FpR'FjND STATEMENT 
SKIP IF FIND OR READ 
TEST FOR'WNITE 
8R*IF NOT I/O RDkWRITE-FIND 
LOAD~2ND'We UP STRING 
IS" IT EXPRESSION OPERATORS 
8RANCH IF NOT 
MOVEI/P STRING PT 
8R TO GONTjNUe PROCESSINSt 
LOAD" WQRD 
IS" IT UleF READ 
SKIP'IF YES 
IS IT llUf WRITE 

skip" xr ye§ 

IS IT UlSF FJNP 
8RANCH IF NOT 
DECREMENT §TRING J/P PT 
CH|CK REST OF STMNT 

3 STTYP-Z LOAD STMNT IP TYPE 

SKIP IF NOT ARITH STMNT 
P2011 BRANCH IF ARITHMETIC STMMT 
3 TCAUU-Z IS I t CAUL STMNT 
, P20H, - BRANCH IF YES 
3 H4800-Z IS'IT JF STMNI 
. P20U, - BRANCH IF YES 



TEST IF 

SHYP-Z 

HD000-Z 

P1052, - 

STTYP-Z 

R5AP-Z 

Z 

FINP-Z 

Z 

WRIT6-Z 

HERE,Z 



H0054.Z 

A7A72,Z 

1 

P2011 



UIBFR-Z 

Z 

H0080-Z 

Z 
UIBFF.Z 

HERE#Z 

-1 

D5011 



II 
12 
1 
3 
3 
1 
2 
U 



MOVES THE 

UNAUTEREDi 
STMNT WAS AN 



stmnt tg the o/p string 
Determines if the uast 

: ENp STMNT 



INIO RESET J/P PT 

OUTID *E§ET Q/P FT 

UOAD STMNT IP WORD 

HQ7FC-Z GEf STMNT NORM 

NQRM»Z iAVE~NQRM 

MOVE WORD TO 

o oufpgr STRING 

NORM*. 4 DECREMENT NORM BY ONE 

Pj.043 CONTINUE UOOP 

TEST IF UAST gUTPUT STMNT 

WAS ENP StATEMENT 

3 STTYP-Z UOAP STMNT ID TYPE 

3 TENP-Z IS'IT ENp STMNT 

U P1021,Z eiRANCH IF NOT 

U2 EOFS NEW ENp CF STRING AOPR 

L EXIT GO lb NEXT PHASE 
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240 * 

241 P1043 MDX 1 1 INCRfeM^NT I/P'PT 

242 MDX 2 1 rNCRlMBMT Q/P PT 

243 MDX P1042 CQNTlNyE lqQP 

244 * 

245 * ARITHMETIC STmNT FUNCTION ENCOUNTEPE 

246 • OUTPUT ARiTHH6T|C~STMN! FUNC NAME 

247 * AND DUMMY VARlASUeS 

24a * 

249 P1051 LD 1 LOAD WQRU 

250 BSI 3 OUTUN-Z PUT UN OUTPUT STRING 

251 P1052 MDX 1 1 *QVE I/J PT 

252 LD 10 LOAD WQRD 

253 8SC L P1051, Z BRANCH IF NAME 

254 * 

255 * 

256 * 

257 * MOVES THE PT PAST THE PROCESSED PART 

258 * OF THE STRING'ENTKY, RETAJNS THE 

259 * PROCESSED PARI \H THE STRING 

260 * UNALTERED!. PICK? iJP AT THE NEXT 

261 * UNPROCESSED WpRD 

262 * 

263 P2011 MDX 1 -2 MOVB PT , „,,,,„„ 

264 LD 3 ZERO-Z S6T OUT p UT SWITCH 

265 BSI L FINDN FIND N|XT UNPROCESSED OPTR 

266 * 

267 PSC L P1021, - BRANCH IF SEMI-COLON 
263 * 

269 * NOT IN CARD SYSTEM 

270 * 

27i S l EXPRO IS IT gXPR§S5l0Ni»0PERATQRi 

272 BSC L D5011, - BRANCH IF YES 

273 LD 1 L.DAD WQRQ 

274 * 

275 S 3 UNARY-Z IS IT gNARY MINUS 

276 BSC L P6011, • BRANCH jr yES 

277 S 3 CALLX^Z IS IT CALL 

278 BSC L P5QU, -■ BRANCH IF YES 

279 S 3 IF^Z IS II IP ^ 

280 BSC L P3011, - BRANCH IF YES 

282 * PIND NEXT NOT. PROCESSED WORD 

283 * STARTING AT PTR 2 

285 P2013 STX 1*3 FIND N|XT UNPROCESSED WORD 

286 BSI L FINDN OECRfcMENT PT 

287 LDX LI *•* 

288 * 

289 BSC L P2071, Z BRANCH IF ^D WORD NOT Q=>TR 

290 LD 1 L.OAD WQRD AT PT 

291 S 3 HQOQE-Z IS II ,ASSjGNj 

292 BSC L P2051,Z BRANCH IF NOT 

293 LD 11 LOAD'NEXf WORD 

294 BSI 3 SYMT-Z SET SYM f BL, JD WORD 

2 95 SLA 11 IS IT QENERATED TEMPORARY 

296 BSC - SKIP'JF YES 

297 MDX P2031 BRANCH If NO 

298 * 

299 * MAKE MODE OF tfT AGREE WJTH MODESW 
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300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 

321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 



* 
P2Q31 



in i 1 LOAD SYM T8U ENTRY NO 
BSI L GTMQD QE? MODE Or NAME 
MDX P2033 CL|AH MODE SWITCH 

GENERATES THE CODE TO HANDLE MIXED)* 

MODE ARITHMETIC 
3 STNA1-Z LOAD SYM TBI ID WORD 
SKIP IF riXEP PT 

P2032 BRANCH IF NOT 
3 MQDSW-Z TEST MQDE SWITCH 

skip if not fix 
p2033 branch if fix 

3 IFIX«Z UOA0.CAU IFIX, 
3 OUTUN..Z OUTPUT CALL 

P2033 CLEAN MODE SWITCH 



ID 

BSC 

MDX 

ID 

BSC 

MDX 

LD 

BSI 

MDX 



* 
P2032 



UD 
BSC 
MDX 
ID 

BSI 



* 

* 
* 
# 
# 



* 
P2033 

P2041 



LD 

STO 

ID 

BSI 

UD 

BSI 

MDX 

MDX 

* 

* 

* 

P2051 UD 
S 

BSC 
S 
BSC 



UD 

BSI 

BSC 

MDX 

UD 

BSC 

MDX 

UD 

BSI 

UD 

STO 



3 MODSW-Z 

Z 

P2033 
3 FUT-Z 
3 OUTUN-Z 



TEST MQDE SWITCH 
SKIP IF FIXED 
BRANCH IF NOT FIXED 
UOAD'.CAUU FLOAT, 
OUTPUT CAUL 



AT THAT POINT MQDiSWlTCH MUST NOT 

BE ZERO ZERO WQU1.0 MEAN AN ASSJG^ 

OPERATOR PRECEDED BY NOT FILLING ANY 

ACCUMULATOR 

MODESWITCH IS SET Z|RO SINCE NEXT 

ARITHMETIC IS INDEPENDENT OF MOPE 

3 ZERO-Z 0L|AK 

3 MODSW-Z MODE SWITCH 

1 LOAD WgRU 

3 QUTQP-Z QUfPuT OPERATOR 

1 1 LOAD'WQRD 

3 OUTNA-Z OUTPUT NAME 

1 2 MOVE'PT 

P2011 FIND NEXT UNPROCESSED WORD 



TEST IF WORD AT POINTER IS 
.EXPONETIATE, "OPERATOR 
OR .REVERSE EXPONENTIATE, 





EXP-Z 
P2041, . 
HQ03E-Z 
P2041, ' 



TESTS TO 

1 1 

3 SYMT-Z 

Z 

P2052 
3 MQDSW«Z 

Z . 
P2041 

3 FUT-Z 
3 OUTUN-Z 
3 HF800*Z 
3 MQDSW-Z 



UOAO wqro 

IS' IT EXPONENTIATE OPTR 

BRANCH IF YES 

JS'IT REVERSE EXPONENTIATE 

OPTRV BHANCH IF YES 

ASCERTAIN PROPER MODE 
LOAD WQRO 

get SYM tbl ID *ORD 

SKIP" IF FUOAf 
BRANCH If FIX 
TEST'MQDe SWITCH 
SKIP IF FIX 
BRANCH IF FLOAT 
UOAD .CALL FLOAT, 
OUTPUT CAUL 
SEf MODE SWITCH 

to'float 



SElTE 



360 
361 
362 
363 
364 
365 
366 
367 
368 
369 
370 
371 

372 
373 
374 
375 
376 
377 
378 
379 
38Q 
381 
382 
383 
384 
385 
386 
387 
388 
389 

390 
391 

392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 

n& 

417 
418 
419 



* 
P2052 



* 
P2061 



P2071 



P2081 



* 
P2083 



P2091 



P2093 



MDX 
LD 

bsc 

MDX 



ID 
SSI 

BSI 

BSI 

BSI 

ID 

BSI 

BSI 

STO 

LD 

BSI 

LD 

BSI 

STO 

MDX 

UD 

STO 

UD 

BSI 

BSC 

LD 

BSI 

BSC 

LD 

STO 

LD 

BSI 

MDX 

LD 
BSI 
BSC 
MDX 

LD 

BSI 

MDX 

LD 
S 

BSC 

MDX 

LD 

BSI 

LD 

BSI 

MDX 

A 

BSC 

MDX 

LD 



P2041 



OUTPUT OPERATOR 



3 MQDSW.Z TEST MQDE SWITCH 
SKIP ir FLOAT 
P2041 BRANCH IF FIXED 



FSTO«Z 

OUTOP-Z 

GETGT-Z 

GTMOD 

OUTNA«Z 

1 

SCKLD-Z 

GETGT«Z 

1 

FLT-Z 

OUTUN-Z 



REVOP^Z 



P2041 



I 



L. 



3 HF8Q0-Z 
3 MQDSW-Z 

PFIND 
3 SYMT*Z 

P2081," 

1 1 

3 SYMT-Z 

P2091,- 
3 ONE*Z 
3 MQDSW-Z 

1 1 

3 SCKLD-Z 
P2111 



1 1 

3 SYMT-Z 
Z 
P2101 

1 1 

3 SCKLB-Z 
P2111 

1 

3 hoooe-z 
z 

P2093 

1 1 

3 SCKLD-Z 

3 IFIX-Z 
3 OUTUN-Z 
P2111 

3 H000^»Z 

m 

P2083 

1 



load .call rsio, 

OUTPUT CALL 

GET GENERATED TEMPORARY 
M>KE~MQDfc aQR^E 
OUfPUT NAM| 

loaVwqru 

OUTPUT ,LOAD, 
GENEKATEo TEMPORARY 
REPLACE? NAME 
LOAD'.QALL FLT, 
OUTPUT CALL 
LOAD WQRO 
RE^ENSg OP|RAlOR 
STORfc REVERSED OPERATOR 
OUTPUT OPERATOR 

SET MODE SWITCH 

fO'FLQATlNG PT 

LOAD NEXT UNPROCESSED WORD 

let SYM TBL JD WORD 

BRANCH IF FLOATING PT 

LQAD'WQRp 

SET SYM TBL JD WORD 

BRANCH IF FLOATING PT 

SET MOpE'SWlTCH TO 

FIXEU PT 

OUTPUT FOLLOWING m 

LD" " PT 1 

FIND NEXT UNPROCESSED OPTR 

LOAD WQRU 

get SYM TBL ID WORD 
SKIP" IF FLOATING PT 
BRANCH IF FIXED PT 



OUTPUT LOAD INSTRUCTION 
FJNjfNBXf UNPROCESSED OPTR 

LOAD WQRO 
IS'IT ASSIGN 
SKIP'tF YES 

Ira'nch IF NOT 

LOAD'WQRD 

OUfPUT LOAD INSTRUCTION 

CHANGE VAR TO FIXED PT 

QUtPuT ,QALL If IX, 

GET NEXT "UNPROCESSED OPT 1 ?, 

IS IT EXPRfSSJON OPERATOf?i 
$K1P"IF NOT 
BRANCH IF YES 



SEITE 8 



W 



420 

421 

422 

423 

424 

425 

426 

427 

428 

429 

430 

431 

432 

433 

434 

435 

436 

437 

438 

439 

440 

441 

442 

443 

444 

445 

446 

447 

448 

449 

450 

451 

452 

453 

454 

455 

456 

457 

458 

459 

460 

461 

462 

463 

464 

465 
466 
467 
468 
469 
470 
471 
472 
473 
474 

475 
476 
477 
478 
479 



BSI 
STO 
ID 
S 

esc 
s 

BSC 

ID 

BSI 

ID 

BSI 

BSI 

BSI 

BSI 

SLA 

BSI 

BSI 

ID 

BSI 

UD 

BSI 

BSI 

BSI 

MDX 

P2099 UD 
SRT 
ID 
STO 
SLT 
STO 

P2101 UD 
BSI 
LD 
BSI 

* 

* 

* 

# 

* 

P2111 STX 
ID 
BSI 

P2112 UD 
BSI 
UD 
BSI 

P3010 MDX 

BSC 
* 

# 

* 

* 

P3011 UD 
BSI 
SLA 
BSC 



3 R£VQP*Z REVEHSE JHE OPERATOR 

I 2 LOAD W RO , 

3 H4800-Z IS IT ,UDX Hi 

Z SKIP IF YES 

3 H1300-Z IS IT ,UOX LL 

„ P2099,Z BRANCH IF MOT 

1 l LOAD"VARiA|Ul 

3 SCKUD-Z OUTPUT UOAD JNST AND VAR 

3 FSTO'Z UOAP ,CAUU FSTO, 

3 OUTUN^Z OUTPUT CALU 

3 GETQT-Z QEf AOpR OF NEXT SYM TBU GT 

L GTMOD MAKE MQDfe gF VAR AGREE 

3 OJTNA-Z OUTPUT VAR 

16 CLEAN aCC 

L FINDN FIND*N|XT UNPROCESSED PART 

3 SCKUD-Z OUTPUT UOAO JNST AND VAR 

3 FUT-Z UOAO ,CAUU FUOAT, 

3 OUTUN-Z OUTPUT CAUU 

1 -4 UOAD~«Q*0 

3 OUTUN-Z OUTPUT 

3 GETGT^Z GET AOpR OF NEXT SYM TBU GT 

3 OUTNA-Z OUTPUT NAM| 

P3010 §0 GteT NfeXT UNPROCESSED »AR 

i 1 LOAD'WQRD AT PT 1 

16 MOVE TQ EXTENSION 

I PFIND UOAO WQRO AT PT 2 

1 1 STOR* AT PT 1 

16 PUT WORD ORIGINAUUY AT PT' 1 

i PFIND IN'PMND PT 2 

1 1 UOAD'WQRD 

3 SCKUD-Z OUTPUT UOA0 INSTRUCTION 

3 FUT'Z CHANGE WURO TO FLOATING PIT 

3 OUTUN-Z OUfPUT ,CAUU PUT, 

FIND AND OUTPUT NEXT N°NPROCESSED 
OPERATOR* AUSU OUTPUT INTERSPERSED: 
PROCESSED DATA, IF ANY 



U 

u 



P2112 1 SAVE INPUT PT 

ZERO-Z ie T " UUTPUT SWITCH 

FINDN FIND' NEXT UNPROCESSED QPTR 

*„* LOAD OPERATOR 

OUTOP-Z OUTPUT OPERATOR 

PFIND UOAD NAME 

OUTNA*Z OUTPUT NAM| 

1 M0VE"I/P PT 



U P2011 GEI NEXT UNPROCESSED PART' 

CHECKS FOR AN IF QPTR t GENERATES THE 
TRACING CAUUSi C H|CKS FOR A »JjJNT 
NO, ON THE NEXT STMNT, OPTIMIZES THE 

SSC U j.NST GENERatId TQ COMBINE 
CONDITIONI 
1 l UOAO WQRO 
3 SYMT«Z 8Ef SYM TBU ID WORD 
5 fS* IT STMNT NO t 
U P301A, Z BRANCH IF YES 





SEITE 


9 




480 


UD 


1 


1 


483, 


B6I 


3 


SCKUD.Z 


482 


UD 


3 


ONE*Z 


483 


STO 


3 


MODSW.Z 


484 


UD 


3 


STNA1-Z 


485 


MDX 


1 


1 


486 


BSC 


U 


P301A # Z 


487 


UD 


3 


HF800-Z 


488 


STO 


3 


MODSW*Z 


489 


* 






490 


* 






491 


P301A UD 


3 


ZERO-Z 


492 


STO 


3 


STNCH-Z 


493 


MDX 


1 


1 


494 


UD 


1 


4 


495 


SLT 




15 


496 


BSC 




m 


497 


MDX 




P3012 


498 


UD 


1 


5 


499 


STO 


3 


STNCH-Z 


500 


P3Q12 UD 


3 


MQDSH-Z 


501 


BSC 




- 


502 


MDX 




P3021 


503 


UD 


3 


UDFAC-Z 


504 


BSI 


3 


OL)TUN*Z 


505 


P3021 UD 


U 


CCWD 


506 


SLA 




15 


507 


BSC 


U 


P3022,* 


508 


UD 


3 


MQDSW-Z 


509 


BSC 


U 


P3020,* 


510 


UD 


3 


FJF-Z 


511 


STO 


2 





512 


MDX 




P3022 


513 


P3020 UD 


3 


FllF-Z 


514 


BSI 


3 


OUTUN-Z 


515 


P3022 UD 


1 





516 


S 


3 


STNCH*Z 


517 


BSC 




• 


518 


MDX 




P3041 


519 


UD 


1 





520 


S 


1 


1 


521 


BSC 




z 


522 


MDX 




P3031 


523 


UD 


3 





524 


STQ 


1 


1 


525 


UD 


3 


BSCU1-Z 


526 


MDX 




P3033 


527 


* 






528 


* 






529 


P3031 UD 


1 





530 


S 


1 


2 


531 


BSC 




Z 


532 


MDX 




P3032 


533 


UD 


3 





534 


STO 


1 


2 


535 


UD 


3 


BSCU2-Z 


536 


MDX 




P3033 


537 


P3032 UD 


3 


BSCU3-Z 


538 


P3033 BSI 


3 


OUTOP-Z 


539 


UD 


1 






LOAD WORD 

OUTPUT UOAB INSTRUCTION 

SET MQQE SWITCH 

TO'F'lXiD PQINT 

(DAD SYM T8U ID WORD 

MOV| INPUT POINTER 

BRANCH IF INTEGER VARIABLE 

SET MOOE SWlfCH 

TO'FUOAtjNS POINT 



ZERO TQ 

CLEAN STMNT NO, CHECK 

MOVE" INPUT PT 

LOAD NgXf fTRNT JD WORD 

Q0E5 STMNT HAVE STMNT NO, 

fKIP IF NEXT STMT HAS NU^BE 

BRANCH IF NOT 

|„QAD STMNT NOi 

STORfe STMNT NO, 

tEST'MQDE SWITCH 

Skip if floating point 
branch if fixed point 

LOAO'.UD'FAC 1, 
OUTPUT 

IS IF TRACE REQUIRED 

BRANCH IF NOT 
TE$T"MQD6 SWITCH 

BRANCH IF FIXED PT 
REPLACE E LD PAC, BY 
;CAUU FIF, FUOATING 
CHECK BRANCH ADDRESSES 
LQAQ INTEGER IF TRACE CAUL 
OUfPUT CALL 

LQAD~lP«NE(*ATlVE BRANCH ADD 
IS " IT NEXT STMNT 
fKJP'lF NOT 
BRANCH IF YES 

IS'IK.NEOATIVE BRANCH EQUAL 
fO JF^zErO BRANCH ADDRESS; 
SKIP" IF YES 
BRANCH IF NOT 
LOAD" ZERO 

STORE JN IF ZERO WORD 
£,QAD",BSC I t , 
OUTPUT INSTRUCTION 



TRACE 



IS jr.NEGATlVE BRANCH EQUAL 

TO IMPOSITIVE BRANCH ADDR 

SKIP'IF YE§ 

BRANCH IF NOT 

LOAD'ZBRO 

STORS |N IF-POSITIVE WORD; 

£,OAD~,BSC t 'Z, 

OUTPUT INSTRUCTION 

UOAD'.BSC t »Z , 

OUTPUT BSC INSTRUCTION 

L,0AD~8RANCN TO ADDRESS 



SEITE 3,0 



^~ 



540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

571 

572 

573 

574 

575 

576 

577 

578 

579 

580 

581 

582 

583 

584 

585 

586 

587 

588 

589 

590 

591 

592 

593 

594 

595 

596 

597 

598 

599 



P3041 



* 

P3042 

P3Q43 



P3051 



P3053 



BSI 

LD 

BSC 

MDX 

S 

BSC 

MDX 

LD 

S 

BSC 

MDX 

LD 

STQ 

UD 

MDX 

LD 

BSI 

LD 

BSI 

LD 

BSC 

MDX 

S 

BSC 

MDX 

LD 

BSI 

LD 

BS! 

MDX 

BSC 



* 

* 
P5011 



LD 

STQ 

LD 

BSI 

BSC 

MDX 

LD 

STO 



* 

* 
P5012 



P501X 



LD 

BSI 

LD 

A 

STO 

LD 

STO 

MDX 

LD 

STO 



3 OUTNA-Z 

1 1 

P3051 
3 STNCH-Z 



P3051 

1 

2 

I 

P3042 


2 

BSCL 4 -Z 
P3043 

BSCL5-Z 

OUTQP*Z 

1 

O'JTNA-Z 

2 



P3053 
3 STNCH-Z 



P3053 

BSCL6-Z 

OUTQP-Z 

2 

OUTNA-Z 

3 

P1021 



OUTPUT ADDRESS 
LQAD'ZgRO-IJRANCH ADDRESS 
SKIP IF NOT ZERO 

Iranqh IF §qual to neg-adpr 

I$"If NEXT STUNT 

SKIP'IF NOT 

9RANCH IF YES 

iS'lMfcEHQ BRANCH EQUAL TO 

J'F PUSJTJV| BRANCH ADDRESS 

^KIP' IF YES 

branch if not 
lqad'zeRu 

STORfe |N IF-POSITIVE WORD; 
LOAD ,BSg L '"• 
output INSTRUCTION 

l,OAO ,8SC L * *> 
QUfPUT BSC INSTRUCTION 
l,OAD"Z|RO»BRANCH ADDRESS 
OUfPUT ADDRESS 
LOAD'PQSiTjVE BRANCH ADDRES 
SKIP IF NOT ZERO 
8RANCH IF ZERO 
IS" IT NEXT STMNT 

5KIP"IF NOT 
9RANCH IF YES- 
LOAD", esc l #*z, 

QUTPUT INSTRUCTION 
LOAD'PQSITJVE BRANCH ADDRj 
OUfPUT ADDRESS 
MOVE'I/P POINTER 
GET NEXT STMN! 



DETECTS A CALL pPTR, SETS THE MODE! 
SWITCH, I? IT IS AN iriX OR FLOAT 
CALL* CHANGES IT 10 A ONfc>WD CALL 



ONE»Z 
MQDSW-Z 
1 
SYMT-Z 

Z 

P5012 

HF800-Z 

MQDSW^Z 



SET MODE'SWITCH 
fO"F|XED POINT 
LOAD WORD 

QEf SYM TBL ID WORD 
SKJP'lF FLOATING POINT 
8RANCH IF FIXED PT 
SET MODE SWITCH 
fo"FLOATiN(3 POINT 






TEST IF CALL IS , I F I X t OR .FLOAT, 
IF SO, CHANGE TQ ONE-WORD CALL 

1 1 LOAD WQRU 

3 SYMT-Z GET SYM TBL JD WORD 

3 SYMT1 1»Z" LOAD AUDR OF ID WORD 

3 ONE-Z 

P501X 1 GET ADDRESS OF NAME IN ENjTR 
L *.* LOADFJRST WORD OF NAME 

3 TgMP-Z STORfe 
L P501X l # l" WET ADOR °F* 2ND WORD 
J P501X 1 L0AP"2ND WORD 

3 TEMP-Z 1 STORfe 

TEST IF NAME J3 iFLQATi 



SEITE 11 



^w 



600 

601 

602 

603 

604 

605 

606 

607 

608 

609 

610 

611 

612 

613 

614 

615 

616 

617 

618 

619 

620 

621 

622 

623 

624 

625 

626 

627 

628 

629 

630 

631 

632 

633 

634 

635 

636 

637 

638 

639 

640 

641 

642 

643 

644 

645 

646 

647 

648 

649 

650 

651 

652 

653 

654 

655 

656 

657 

658 

659 






# 
P5013 



P5015 



P5017 
P5018 



* 



IDD 

SD 

BSC 

RTE 
BSC 



UD 
MDX 



IDD 
SD 

BSC 
RTE 
BSC 



UD 



STO 

UD 

BSI 

SLA 

SRA 

BSC 

UD 

BS! 

UD 

S 

BSC 

UD 

A 

BSI 

UD 

BSI 

MDX 

UD 

BSI 

UD 

BSI 



UD 

BSI 

BSC 

UD 

MDX 

UD 

STO 

MDX 
BSC 



3 TEMP-Z 
3 NFUT-Z 

U P5013,Z 
16 

U P5013,Z 



(„OAD NAME 
IS'lT ,FLOAT, 
BRANCH IF NOT 
CHECK 2MB WORD 
BRANCH NOT ,FUOAT, 



OUTPUT ,UOAO,i QNEiWgRP ,FUOAT, 
3 FUT-Z UOAD ,CAUU FU°AT, 
P5015 OUTPUT CAUU 

TEST IF .IFiXi 
3 TSMP-Z U.OAD NA«e 
3 NIFJX-Z IS IT .IFIX, 

. P5oi6.z Branch if not 

16 CHECK 2NO WORD 

. P5016,Z BRANCH NQT ,JFJX, 

OUTPUT ONg"WOKD .|F{X, 
3 IFIX-Z QOAP ,CAUU J F I X • 



2- WD CAUU 

TEMP"Z 

2 

SYMT-Z 

2 

14 

P5017, 

H6000-Z 

OUTUN-Z 

TEMP«Z 

IFIX-Z 

Z 

H8380-Z 

fud-z 

OUTUN-Z 

H60QCZ 

OUTUN-Z 

P5018 

2 

SCKUD-Z 

TEMP*Z 

OUTUN-Z 



.IFjX, UR .FUOAT, ENCOUWR 
STdRfe Qki,l 
UOAD'NBXT WORD 
SET bYM fBU JD WORD 

(souate dimension 

I'nfokmation 

Branch not dimensioned 

t,0AD'NQP 
OUTPUT 
l,OAD~CAUU 
IS" IT JPIX 
S'KIP'IF YE^i 
CREATE PROPER 
LOAD" iNSfRycf ION 
OUTPUT INSTRUCTION 

UQAff NQP 

OUTPUT 

OUTPUT QNE.WORD CAUU 

LOAO'WQRO 

OUTPUT UUAD INSTRUCTION 

i,OAO"ONE«WQRD CAUU 

OUTPUT CALU 



# 



MAKE ENTRY IN SY* TBU A PSEUDO ENTRY 
TO AVOID UISTJNG SUSP N A ME TWICE 

1 1 UOAD WQRD 

3 SYMT-Z QET SYM TBU JD WORD 

U * 2,- BRANCH IF FUOATING POINT 

3 H4220-Z UOAD" INTEGER STMNT NO, ID, 

* 1 PUf IN SYMBOU TABUE 

3 HQ220-Z UOAD REAU 3TMNT NOi ID 

I SYMT1 1 PUT IN SYM TBU 

1 3 MOVE I/P POINTER 
U P20H <3EJ NEXT UNPROCESSED WORD 

TWO-WORD CAUU OTHER THAN 
, FUOAT, OR ilMX, 
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V 



660 

661 

662 

663 

664 

665 

666 

667 

668 

669 

670 

671 

672 

673 

674 

675 

676 

677 

678 

679 

680 

681 

682 

683 

684 

685 

686 

687 

688 

689 

690 

691 

692 

693 

694 

695 

696 

697 

698 

699 

700 

701 

702 

703 

704 

705 

706 

707 

708 

709 

710 

711 

712 

713 

714 

715 

716 
717 
718 
719 



P5016 LD 
BSI 

LD 

BSI 

MDX 

ID 

BSC 

* 

* 

* 

P5023 LD 
BSI 
RTE 
BSC 
SLA 
BSC 

* 

# 

* 

LD 
BSI 

* 

# 

P5024 LD 
BSI 

* 

* 

MDX 
LD 
BSC 
MDX 

# 
# 



P6011 LD 
BSC 
MDX 
MDX 
BSI 
BSC 
MDX 
LD 
STO 
LD 
BSI 
LD 
BSI 
LD 
BSI 

P6012 MDX 
BSC 



3 ONE*-* LOAD QPTH FOR TWO WORD CALL 

3 OUTUN-Z OUTPUT CALL 

1 l L,OAO WQRD 

3 OUTUN-Z OUTPUT 

i 2 MOVENT TO NEXT WORD 

i o LOAD WORD 

L P2011," BRANCH IF QPEHATOR 

CHECKS FOR THE EXTERNAL SPECIFICAT'JO 

QENERATES'THi'PROPER CALL 

OUTPUTS THE'CUMPLETE CALL AND 

ARGUMENTS' 
1 LOAD WO«D 
3 SYMT-Z GET SYM IBL ID WORD 

1 
L P5024, Z BRANQH IF CONSTANT 

U 
L P5024,* BRANCH IF NOT EXTERNAL 

NAME IS .EXTEKNAL, 

OUTPUT .CALL, "OPERATOR /0001 

3 ONE*Z L.OAO CALL OPERATOR 
3 OUTUN-Z OUTPUT OPERATOR 



OUTPUT NAME AT POINTER 

1 l,OAD NAME 
3 OUTUN.Z OUTPUT NAME 

TEST IF END OK ACUMEN! LIST 
NEXT WORD AN'OPEHATOR 



1 1 
t 
L P2011.' 
P5023 



MOVE I/P PT 
LOAD WQRO 

§RANCH IF OPERATOR 
BRANCH IF NOT 



GENERATES THE CALLS OR INSTRUCTIONS 
TO HANDLE THE UNARY MJNUS 



1 1 

P6024 

1 1 

3 SYMT-Z 



P6021 

OHE»Z 

MODSW«Z 

SLA16-Z 

OUTUN^Z 

SL"Z 

OUTOP-Z 



OUTNA.Z 

1 

P2011 



LOAD WQRU 

SKIP IF NOT OPERATOR 

branch if operator 

MOVE"J/P>OtNIER 
GET S>YM TBL I'D w ORD 
§K1P~JF INTEGER NAME 
BRANCH IF REAL NAME 
SET MODE SWITCH 
fO>tX|D POINT 
LOAD ,SLA 16 A 
OUTPUT INSTRUCTION 

OAD'.S L, 

UfPUT INSTRUCTION 
|,0AP~NAMfc 
OUTPUT 
MOVE~I/P PT 
GET NEXT UNPROCESSED OPERi 



b 



SEITE 13 

720 P6021 UD 3 HF800-Z SET MOpEj SWITCH 

721 STO 3 MODSW-Z T° (%9A T iNG POJNT 

722 UD 3 FL.D-Z L.OAD'.rUD, 

723 BSI 3 OUTOP-Z OUTPUT 

724 UD 1 UPAP NAME: 

725 BSl 3 OUTNA-Z OUTPUT 

726 P6022 UD HlCBQ l,OAD ,CALU RSXGN, 

727 BSI 3 OUTUN.Z OUTPUT 

728 MDX P6012 PROCfeSS NEXT WORD 

729 H1C80 DC /1C8Q iCAUU RSJGN, 

730 P6024 UD 3 MQDSW.Z TEST HgDE SWITCH 

731 BSC SKIP If FIXED PQJNT 

732 MDX P6022 BRANCH IF NOT 

733 LD 3 STOFA-Z 1,0 AD ,§TO FA$ 1, 

734 BSI 3 OUTUN.Z OUTPUT 

735 UD 3 SUA16^Z UOAO ,SUA 16i 

736 BSI 3 OUTUN^Z OUTPUT 

737 UD 3 SFACZ L^D tS FAC 1, 
^ 738 BSI 3 OUTUN*Z OUTPUT 

739 MDX P6012 GE? NEXT W0RP 

740 * 

741 * GENERATES THE COD* FOR A UD INST 

742 * IN THE DESIGNATED MQDE 

743 SCKlD DC ENTRY POINT 

744 STO SCKU3 SA?E ACCUMyUATOR 

745 BSI 3 SYMT«Z S*T »YM TBL P WORD 

746 BSC U SCKUli- BRANCH IF REAU VARIABUE 

747 UD SCKU3 L.QAD~ INTEGER 

748 OR 3 UDU-Z COMBINE WITH iUD U. 

749 MDX SCKL2 OUTPUT INSTRUCTION 

750 SCKLl UD 3 FuD*Z l,OAD ,FUO, 

751 BSI 3 OUTUN.Z QUfPuT 

752 UD SCKU3 LOAD REAU VARIABLE 

753 SCKU2 BSI 3 OUTUN-Z OUTPUT 

754 BSC I SCKUO FjETUNN 

755 * 

756 * SUBROUTINE 

75? * INCREMENT NORM \H OUTPUT STATEMENT 

758 * AND INCREMENT OUTPUT POINTER 

759 * 

7Afl TMCR Dr ENTRY POJNT 

761 NADR MDX U ***,4 INCREMENT NOR* IN O/P ST*lIN 

762 MDX 2 1 INCRfeMENf Q/P PT 

763 BSC I INCR R6HIKN 

764 OUTID EQU NADR 1 

765 * 

766 * 

767 BSS E 

768 TEMP DC TEMPuRARY 

769 DC STORAGE 

770 BSS E 

771 STNA1 DC " STORAGE FOR 

772 DC PROGHAM NAME 

773 TEMP2 DC TEMPORARY STORAGE 

774 5CKL3 DC TEMPORARY STQRAGE 

775 MQDSW DC MODE SWITCH 

776 STTYP DC STMNT JD TYPE 

777 NORM DC fTMNT NOKM 

778 SOFIS DC START QF I/P STRJNG m % 

779 STNCH DC STORAGE FOR STMNT NO, 



^ 
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780 


IN ID 


DC 







INPUT STMNf ID WORD ADDR 


781 


SSOST 


DC 







S'TORfeD START OF SYM TBU 


782 


QTM03 


DC 







TEMPORARY 


783 


* 










784 


* 










789 




ORG 




TEMP 




786 


CONT 


IDX 


U3 


ZERO 


LOAD INDEX REGISTER 3 


787 




A 


3 


0,ME*Z 


ADD 1 TO GET SJZE OF STRING 


788 




Sto 




MOVCT 


SAVE SjZfc 


789 




LDX 


U 


EOFST 


INITIALIZE LOOP O/P PT 


790 




MDX 


1 


-10 




791 




LDX 


12 


EQFS 


INITIALIZE UOOP |/P PT 


792 


# 










793 


* 






TEST IF 


OVERLAP EKRQR 


794 




STX 


1 


TEMP 


SAVEEND OF SYM TBU ADDR 


795 




ID 


L 


EOFS 


LOAD END OF SIRING APOR 


796 




S 




TEMP 


SUBTRACT END' OF SYM TBL ADD 


797 




8SC 


L 


MOVST, Z 


BRANCH NO QVfcRLAP ERROR 


798 




MDX 


U 


ERROR, 1 


SET OVERLAP ERROR INDICATOR 


799 

A A ft 




BSC 


L 


EXIT 


QO'TU NEXT PHASE 


800 
801 


* 






MOVES THE STRJNQ NEXT TO THE SYM TBL 


802 


MOVST 


LD 


2 





MOVE WgRD NEXT 


803 




STO 


1 





TO 'SYMBOL TABLE 


804 




MDX 


2 


-1 


MOVE PQjNTgRS 


805 




MDX 


1 


•1: 




806 




MDX 


L 


MOVCT, •! 


SKIP IF FINISHED MOVE 


807 




MDX 




MOVST 


CONTINUE LOOP 


808 


* 










809 


* 










810 


* 










811 


* 










812 




STX 


LI 


SOFIS 


STORfe ADDR OF J/p STRING • 


813 




ID 


l 


SgFST 


INSIHT STORED START 


814 




STO 


3 


SSQST-Z 


OF'SYM TBL ADDR 


815 




BSC 


L 


P1D11 


BRANCH TO MAIN PROGRAM 


816 


* 










817 


MOVCT 


EQU 




TEMP 1 


COUNTER 


818 


* 










819 
820 


# 
FAXB 


DC 




/oooo 


SYM TBL ADDR OF 2«W0RD CALL 


821 


* 








"INITIAL VALUE ZERO 


622 


FAXBX 


DC 




/oooo 


SYM TBL ADDR OF 2«W0RD CALL 


823 


* 








"INITIAL VALUE ZERO 


824 


* 










825 


MQQOG 


DC 




/oooo 


MULTJPLY OPERATOR 


826 


FDVR 


DC 




/0780 


t CALi, FDVR, 


827 


DFAC 


DC 




/1180 


t D FAq ;, 


828 


FSBR 


DC 




/0680 


•CALL FSBR, 

FORMAT STMNT NO, JD 


829 


H0220 


DC 




/0220 


830 


FIXI 


DC 




/Q98Q 


tCALL FIXI, 


831 


FAXI 


DC 




/Q88Q 


iCALL FAXI, 


832 


STOL 


DC 




/9000 


iSTO L, 


833 


H9000 


EQU 




STOU 




834 


JSTOX 


DC 




/QD80 


.CALL JSTgX, 


835 


FAR1T 


DC 




/0A80 


t CALL FAKII, 


836 


1AR1T 


DC 




/0B8O 


iCALL IAHIT. 


837 


DL 


DC 




/A800 


*2V , 


838 


SRT16 


DC 




/5800 


t SRT l6 t 


839 


* 
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840 

841 

642 

843 

844 

845 

846 

847 

848 

849 

850 

851 

852 

853 

854 

855 

856 

857 

858 

859 

860 

861 

862 

863 

864 

865 

866 

867 

868 

869 

870 

871 

872 

873 

874 

875 

876 

877 

878 

879 

880 
881 
882 
883 
884 

885 
886 
887 
888 
889 
890 
891 
892 
893 
894 
895 
896 
897 
898 
899 



# 
* 



Al DC 

SL DC 

FADD DC 

FSUB DC 

FDIV DC 
DC 

FHPY DC 

* 

H0036 DC 
HF803 DC 
SFAC DC 
SUA16 DC 
STOFA DC 
BSCL6 DC 
FIlF DC 
FJF DC 
L.DFAC DC 
FSTO DC 
IFJX DC 
LDi DC 
H8800 EQU 
FL,D DC 
FIT DC 
* 

* 
* 



NFLT 



BSS 

DC 

DC 

NIFJX DC 
DC 



* 

H3000 

ZERO 

Z 

ONE 

TWO 

THREE 

FOUR 

H0QQ4 

HF800 

TCAlL 

H4800 

TEND 

H000E 

H300C 



DC 

DC 

EQU 

DC 

DC 

DC 

DC 

EQU 

DC 

DC 

DC 

DC 

DC 

DC 



HQ7FC DC 
BSCLl DC 
BSCL2 DC 
BSCL3 DC 
BSGU4 DC 
BSCL5 DC 
H07FF DC 



THE FALLOWING. 7 CONfTANTS 

MUST FOLLOW EACH OTHER ANp RETAIN 

THEIR GIVEN ORDER 



/9800 
/A000 
/0080 

/oiao 

/Q380 


/Q28Q 



/0036 
/F803 
/1100 
/5900 
/1D80 
/5030 
/QE80 

/qfoo 

/1000 
/0580 
/QC80 
/8800 

LDL 
/Q480 

/ODOO 



lA Li 
*S Li 

.CALL FADD, 

.QALL F5UB, 

.CALL FD|V, 
NOT USED BUT NEEDED FOR TBL 

iCALL FMPY, 



.REVERSE SyB, 

AaSK~tq eliminate NORM 

S KAC li 
SLA 16, 

3TO FAC i, 

8SC L it»i 



CALL FUF, 
CALL FIF, 
L» ' P*C 1, 
CALL FSTO, 

CALL jnx, 

L9 L, 

CALL FLO, 
CALL FLOAT, 



FIX 
?LT 



IF 



TRACSJ 
TRACi! 



FOLLOWING TWO ENVIES ARE 
AS DOUBLi«L|NyTH WORDS 



USED 





/8C9A 

/E063 

/9231 
/99C0 

/300Q 



ZERO 

1 

2 

3 
/Q0Q4 

FOUR 

/F8Q0 

/3000 

/4800 

/1000 

/0O0E 

/800C 

BITS FOR 

/Q7FG 

/50Q8 

/5020 

/5028 

/5010 

/5018 

/Q7FF 



NAME 

i^OAT, 

NAME 



fqr dimension 



TEST, 
00 



MASK 
4ERO 

ONE 
T>0 

THREfc 
FOOR" 



jd type ma?k 
CALL ID TYPE 
iLDX U, 
END ID TYPE 
ASSiiiN OPERATOR 
VARIABLE TEST MASK 
QONSfi(?ENTiM(&#SPECOENT 
MASK'TO GEY NORM 
I'm 



jBSC 
.8SC 

Jbsc 

,B§C 
.BSC 

MASK 



L 
L 
L 
I 
TO 



tit 
$1 



i 



# *i 

GET 



5YM TBL ADDR 
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900 

901 

902 

903 

904 

905 

906 

907 

908 

909 

910 

911 

912 

913 

914 

915 

916 

917 

918 

919 

920 

921 

922 

923 

924 

925 

926 

927 

928 

929 

930 

931 

932 

933 

934 

935 

936 

937 

938 

939 

940 

941 

942 

943 

944 

945 

946 

947 

948 

949 

950 

951 

952 

953 

954 

955 

956 

957 

958 

959 



M8000 

EXP 

HD000 

H0080 

H0028 

H0054 

H5980 

HBOOO 

H4000 

LIBFR 

LJBFF 

H4028 

H1900 

H6000 

H8380 

MDXLl 

LDXL 

LDXI 

STXll 

UNARY 

CALLX 

IF 

H422Q 

H1300 

READ 

WRITE 

FIND 



SYMT 



SYMT1 



# 

* 



DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

DC 

EQU 

DC 

DC 

DC 

EQU 

EQU 

EQU 



DC 

AND 

S 

STQ 

ID 

S 

S 

S 

STQ 

LD 

RTE 

STD 

BSC 



* 
* 

STENT 



DC 
MDX 
ID 
S 

SRT 
D 

OR 
BSC 



/8000 
/QOQA 

/D0O0 
/0080 
/0028 
/0054 
/5980 
/3000 
/4000 
/2180 
/0480 
/4028 
/1900 
/6000 
/8380 
/6100 
/5B00 

/480Q* 

/6200- 

/0020 

H000E 

/0014- 

/4220 

/1300 

H9000 

SL 
SRT16 



U 

L 
L 



SJGN BIT MASK 
EXPONENT* QPERATQR 
ARITHMETIC STMNT FUNIC 



ID 



ID WORD 

GENERATED 

OPERATOR 



TEMPs I 



SUBPROGRAM 
REFERENCED 
SXPRfcSSjUN 
.SIT 16, 

END STMNT |D 

iLlBf READ, 

•II8F WRiTi, 

{NTEGERt DiPlNED VAR, GT ID 

A CAUC SUBSgR, 

CONSTANT FOR DIMENSION 



WORD 



TEST 



CONSTANT 
/1900 IHPX 
/6100 iUDX 
/58QQ iUDX 
/48Q0 iSTX 



Hi 

It 

i> 

Hi 



UNARY MINUS 

/002E |F OPERATOR 
INTEGER STMNf NO, 
ilDX'Ul, 



GETS THE 
VARIABLE 

3 H07FF-Z 
3 ONE-Z 
SYMT1 1 

I SQPST 
SYMT1 1 
SYMT1 1 
SYMT1 1 
SYMT1 t 

L *** 
31 
3 STNA1-Z 

I SYMT 



SYM TBL ID WORD OF THE 

NAMEi 

ENTRY POJNT 

GET NO. OF ENTRY RELATIVE! 

START QP SYMBOL TABLE 

SAVE'NgMBER 

|6T ADRRfeSS OF ENTRY BY 

iUBTKAQTiNB 3 TIMES ENTRY' 

ROi'FRQM START OF STRING 

ADDRtSS 

$tOr| adur °p id WORD 

^OAO'SYM TBL ID WORD 

ROTATE WQRp 

STORl ROTATED WORD 

REt'UHN 



GETS THE NAME QF THE NEXT NEW 
SYMBOL. TABLE fcNTRY 



E0F5T..3 

SQFST 

EQFST 

16 

THREi-Z 
H8000-Z 
STENT 



§NTRY POJNT 

MOVE END OF SYM TBL ADDR 

LOAD STAHT OF SYM TBL ADDR 

QEf NEW SUE OF §YM TBL 

PQSJflQN~FgR DIVIDE 

SET NO. OF TABLE BNTRY 



PUT IN 
REfUHN 



S)6N BIT FOR NAME 



CHANGES THE SUBTRACT* DIVIDE, AND 
EXPONENTIATE U>T*S JNTO REVERSE 
ORTRS WHERE NbEpEO 
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960 

961 

96.2 

963 

964 

965 

966 

967 

968 

969 

970 

971 

972 

973 

974 

975 

976 

977 

978 

979 

980 

981 

982 

983 

984 

985 

986 

987 

988 

989 

990 

991 

992 

993 

994 

995 

996 

997 

998 

999 

1000 

1001 

1002 

1003 

1004 

1005 

1006 

1007 

1008 

1009 

1010 

1011 

1012 

1013 

1014 

1015 

1016 

1017 

1018 

1019 



REVOP DC 
STO 
S 

BSC 
A 

BSC 
MDX 
S 

BSC 
MDX 
S 

BSC 
MDX 

REVl ID 

A 
REV2 STO 
REV3 LD 

BSC 
H003E DC 
H0038 DC 



GETGT 



DC 
ID 
BSC 



CMPGT BSI 
STO 

* 

* 

* 

BS! 
LD 
STO 
MDX 

NXTGT DC 





T£MP2»Z 

HQ03E.Z 

REV2#-Z 

HQ038 

REVl 

TWO-Z 

m > 

REVl 
TWO-Z 
I 
REV3 

TEMP2-Z 

HQ03E 

TEMPg«Z 

TEMP2«Z 

REVOP 

/003E 

/Q038 



ENTRY POJNT 

lAVE QPEHATOR 

HAS UPgRATQR BEEN REVERSED 

BRANCH \F YES 

JS'OKERAfOR MINUS 

skip'if not 

BRANCH If YES 
IS'QHERATOR DIVIDE 
SKJP'jF NOT 
BRANCH IF YES 
JS'OHERAfON EXPONENT 
S'KIP'IF YEf 
BRANCH IF NOT 

LOAD OPERATOR 

ADD REVERSE C°NSTANT 

fTQRfc REVERSED ORTR 

LOAD" OPERATOR 

RETURN 

REVERSING CONSTANT 

MINUS TEST CONSTANT 



COMPUTES THE «T SYM TBU ADDR 

ENTRY POJNT 

3 NXTGT. Z IS'NfeXT 6T COMPUTED 

I GETGT, Z RETUKN IF YES 

3 STENT. Z GET SYM T8L. ADDR FOR NEXT' G 

3 NXTGT. Z STORE ADUR 

MAKE THE ENTRY A GENER TEMP ENTRY 
IN SYM T 



SYMT-Z 
HQ028-Z 
SYMT1 1 
GETGT 1 




GET ADDRESS FOR NEXT ENT^.V 
LOAD SyM T|L ID WORD 
PUT IN SYM TBU 
RETURN 
NEXT"AVAILAB| B E GT 



FOLLOWING SUBROUTINE PUTS THE CON.. 
TENTS OF ApREGISJER INTO OUTPUT 
STRING AND, REFORMS HOUSEKEEPING OF 
OUTPUT $TRlNG*PQlNT§R l OUTPUT 
POINTER IS INDEX REGISTER 2 SUB*. 
ROUTINE HAS THREE ENTRY POINTS, USE 
OF FIRST MOVES T*fc CONTENTS OP A-RE* 
GISTER UNALTERED AS ONE WORD INTO 
OUTPUT STRINQ 1 gSlNG OTHER ENTRIES; 
,NAMEi AND ,UPfRATgR, "ENTRIES MAY 
RESULT IN PACkED OUTPUT OPERATOR 
AND NAME JN'TmE Sam| WORD , SOME 
OPERATORS ARE* CONVERTED INTO SEVERAL 
WQROS OF OUfPUT, THE SUBROUTINE ALSO 
PERFORMS PARTS QF'TME" CONTROLS THAT 
ARE REQUIRED FOR MIXED MODE ARJTH.* 
METIC AND"MAY"GgNERATE COpES REPRE* 
SENTING iCALL PL.T, QR iCALL IFIX, 



SElTE 18 

1020 ************************************************** 

1021 **********************************!*!!*t!!*r,rran! 

i022 * ADDS A WORD TO THfe STHNT STRING FROM 

1023 * THE ACCUMULATOR 

1024 ************************************************** 

1025 OUTUN DC ENfRY POJNT 

1026 QUT12 STO 2 1 *UT WORD ON OUTPUT STRJNQ. 

1027 BSl 3 INCR-Z JNCRteMpNT O/P PT AND NORM 

1028 0UT13 BSC I OUTUN REtUKN 

1029 ************************************************** 

1030 * OUTPUT AND COUNT 

1031 * ENTRY OPERATOR 

1032 ************************************************** 

llll I SAME AS UNAUTbRED ARGUMENT ENTRY 

1035 * 

1036 OUTOP EQU OUTUN 

1§38 JwORD DC i$S"S AMC \\l 

1039 NAME DC STQRfeD NAME 119 

1040 * 

1041 ************************************************** 
i042 * ADDS A NAME'TU THE §TMNT STRING 
lS43 * PACKED INTO ONE WORD WITH AN OPTR 

1044 ************************************************** 

1045 OUTNA DC ENTRY PQJNT 

1046 0UT31 STO NAME STORE QUTFgT WORD 

1047 LD OUTNA LOAD R^TyRN ADDRESS 

1048 STO OUTUN STORfc \H OyTUN 

1049 UD 2 UQAD'UST Q/P WORD 

1050 STO CWORP SAVE WQRp 

\\l\ * TEST IP END Or ARJTH STMNT FUNG 

1053 * IDENTIFIED BY QPTR 1ASSJGN, 

JS54 I AND NAME iAHITH STMNT FUNC, 

[III * S 3 H000E.Z IS II ASSIGN OPERATOR 

1057 BSC t 0UT33.Z BRANCH IF NOT 

1058 



LD NAME l,OAD""WpRD TO'BE OUTPUT 



1059 BSI 3 SYMT-Z GET SYM TBL JD WORD 

1060 SLA 6 18 II STMNT FUNCTION 

1061 BSC L 0UT33,. BRANCH IF NOT 

10^3 I IS IT END OF. AN AKJTH STMNT FUNC 

1064 * STATEMENT 

1065 * DELETE LAST OUTPUT. OPERATOR 

1^67 * LD I NADR 1 LOAD jTMjriD WORD 

1068 S 3 FOUR-Z DECREMENT NORM 

1069 STO I NADR 1 PUT *AqK ON STRING 

1070 MDX 2 -1 DECREMENT O/P PT 

1071 BSC I OUTNA REJUHN 

1073 0UT33 LD CHORD L.OAD LAST O/P WORD 

HI; BSC 8 - SKIP IF NO REDEFINITION 

H 7 l HDX 0UT51 BRANCH To REDEFINE CODE rfQR 

1077 0UT41 LD CHORD L.QAD CODE WORD 

1078 BSC Z SKIP IF NOT PACKED O/P 
HjI HDX 0UT44 BRANCH TO PACKED OUTPUT 
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1080 


* 










1081 


* 






NONPACKED 


1082 


* 






ENTRY 1? 


A»RE« CODEWORD VALUE 


1083 


• 










1084 


0UT43 


STO 


2 





STORt QOUE WORD 


1085 




LD 




NAME 


load'name 


1086 




MDX 




OUT12 


OUTPUT NAME 


1087 


* 






PACKED 




1088 


* 






A.REG IS 


ASSUMED CODEWORD VALUE 


1089 


0UT44 


OR 




NAME 


PACK CODE WORD AND NAME 


1090 




STO 


2 





PUT ON O/P STRING 


1091 




MDX 




OUT13 


FJifUHN 


1092 


* 










1093 


0UT51 


ID 




NAME 


GET *YM TBL P 


1094 




BSI 


3 


SYMT-Z 


W0R0"F0R"FyTU«E USE 


1095 




LD 




CWORD 


LOAD CODE WORD 

IS* XT ASSIGN OPERATOR 


1096 




S 


3 


HQOOE-Z 


1097 




BSC 


L 


OUT91, ■ 


BRANCH IF YES 


1098 




BSC 




-z 


SKIP" ir LESS'THAN ASSIGN 


1099 




MDX 




0UT61 


BRANCH IP NOT 


1100 




LD 




CWORD 


LQAD"CQDi WORD 


1101 




SRA 




1 


COMPUTE ADDR TO 


1102 




A 




ADRC1 


GET UPERATOR 


1103 




STO 




OUT53 1 


iTORis ADUR 


1104 




S 




ADRC2 


JS If EXPONENT OPERATOR 


1105 




BSC 


L 


0UTC4, - 


BRANCH IF NOT 


1106 




ID 


3 


STNA1-Z 


LOAD'SyM TBL"ID WORD OF NJAM 
BRANCH IF FLOATING POINT 


1107 




BSC 


L 


0UT55,- 


1108 


* 










1109 


* 






NAME IS 


INTEGER NAME 


1110 




ID 




CWORD 


LOADOPEHATOR 


1111 




S 


3 


HQOQCZ 


IS* IT MULTJPLY OPERATOR 


1112 




BSC 


L 


0UT54, • 


BRANCH IF YES 


1113 




A 


3 


H0004pZ 


IS" IT DlVlpE OPERATOR 


1114 




BSC 


L 


0UT85, - 


8RANCM IF YES 


1115 


0UT53 


LD 


L 


*•# 


1,0AD"QPENAT0R 


1116 




MDX 




0UT44 


PACK AND OUTPUT 


1117 


* 










1118 


* 






ENTRY FOR INTfc0E^' MULTIPLY 


1119 


0UT54 


LD 


3 


NAME»Z 


LOAD NAME 


1120 




OR 


3 


HBOOO-Z 


PACK WJTM MULTIPLY OPTR 


1121 




STO 


2 





PUT ON STRING 


1122 




LD 


3 


H5980.Z 


LOAD ,SLf 16i 


1123 




MDX 




0UT12 


OUTPUT INSTRUCTION 


1124 
1125 


* 
* 






ENTRY FOR OBTAINING .CALL FADP,, 


1126 


# 






,CALL FSUBm iCALL FDJV, 


1127 


* 










1128 


0UT55 


MDX 


L 


0UT53 1, 


FADD-AL MQDJFY ADDRESS 


1129 




LD 


I 


OUT53 1 


LOADOPEKATOR 

OUTPUT OPERATOR, NAME 


1130 




MDX 




0UT43 


1131 


# 










1132 


ADRC1 


DC 




AL*2 


ADDRESS CONSTANT 


1133 


ADRC2 


DC 




AL 3 


ADDRfcSS CONSTANT 


1134 


* 










1135 


0UT61 


S 


3 


HQ036-pZ 


IS JT REVERSE SUBTRACT 


1136 




BSC 


L 


OUTF1, • 


BRANCH IF YES 


1137 




$ 


3 


TWO-Z 


IS ~ IT REVERSE DIVIDE 


1138 




BSC 


L 


OUTQ1, - 


BRANCH 


1139 




MDX 




OUTB1 


MUST'BE REVERSE EXPONENTJAT 
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1140 
1141 
1142 
1143 
1144 
114? 
1146 
1147 
1148 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1158 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 

1167 
1168 
1169 
1170 

1171 

1172 

1173 

1174 

1175 

1176 

1177 

1178 

1179 

1180 

1181 

1182 

1183 

1184 

1185 

1186 

1187 

1188 

1189 

1190 

1191 

1192 

1193 

1194 

1195 

1196 

1197 

1198 

1199 



0UT85 ID 
STO 
BSI 
LD 
MDX 



0UT91 LD 
SLA 
BSC 
MDX 
LDD 
RTE 
AND 
BSC 
MDX 
LD 
BSC 
MDX 
LD 
MDX 

0UT93 LD 
MDX 

* 

0UT95 LD 
BSC 
MDX 
SLA 
BSC 
BSC 
LD 
MDX 

0UT96 LD 
MDX 

OUTA1 LD 
MDX 



OUTB1 LD 

BSC 



* 

* 



BSi 

OR 

MDX 



0UTB2 LD 
STO 
BSI 
BSI 

QUTB3 STO 

* 

BSI 

BSI 

# 
* 



SRT16*; 



INCR-Z 

DL-Z 
0UT44 



ASSIGN 
L CCWD 
14 

0UT95 
3 STNAl-Z 

1 
3 H800C-Z 

Z 

OUT95 
3 STNA1-Z 

in 

0UT93 
3 IARIT-Z 

0UT43 
3 FARIT.Z 

0UT43 

3 STNAi-Z 



L 
L 



OUTAl 
3 

0UT96,C 
0gT96,*Z 

STOL-Z 
0UT44 

istox-z 

0UT43 
FSTO"Z 

0UT43 



LOAD ,§RT 16, 

PUf UN O/P STRING 

lNCRbM|NT $TMMT NORM| O/P! P 

LOAD",p L, 

OUTPUT OPERATOR! NAME 



IS AKITHMETIC TRACE NEEDED 
SKIP' IF YES 
BRANCH IF NOT 
LOADSyM TUL ID WORD 
PUf fcNTlHE WORD IN ACC 
| S " I T VAHUBLE NAME 
SKIP'IF YES 
iRANgH IF NOT 
LOAD'SYM'TBL ID WORD 
SKIP IF INTEGER NAME 
BRANCH I* NOT 
LOAD", CALL IARIT, 
OUTPUT CALL* WE, 
L/AP",CALL PARIT, 
OUTPUT CALL* N AM£ 

LOAD SYM T8L ID WORD 
SKIP IF INTEGER NAME 
BRANCH IF NOT 



BR IF INDEXED INTEGER 

BR jF INDEXED INTEGER 
LOAD ,$TU L , 
OUTPUT OPTR, NAME 

CALL jSfOX SUBROUTINE 

LOOP BACK 
LOAD', CALL FSTO, 
OUTPUT OPTR, WORD 



STOR 
STOR 



REV, EXPON, 
3 MQDSW-Z TEST MQDfc SWJTCH 
L 0UTB2,Z BRANCH IF FLOATING POINT 



MODE 
3 GETGT 
3 H9000 

OUTB3 



FIX 
,Z GET uENEKATEP TEMPORARY 
,Z COMBINE WITH iSTO L. 
OUTPUT 



MODE FLOAT 
3 FSTO-Z UOAD ,CALL FSTO, 

2 OUfPUT CALL 

3 INCR-Z MOVE'PTi INCREMENT NORM 
3 GETGT. Z GET UENENATED TEMPORARY 

2 PUT UN O/P STRING 

MAKE GT.MODE AGREE WITH MODESWlTCHi 
L GTMOD 

3 INCR-Z MOVE O/P PT# INCREMENT NORM 
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1200 

1201 
1202 
1203 

120* 

1205 

1206 

1207 

1208 

1209 

1210 

1211 

1212 

1213 

1214 

1215 

1216 

1217 

1218 

1219 

1220 

1221 

1222 

1223 

1224 

1225 

1226 

1227 

1228 

1229 

1230 

1231 

1232 

1233 

1234 

1235 

1236 

1237 

1238 

1239 

1240 

1241 

1242 

1243 

1244 

1245 

1246 

1247 

1248 

1249 

1250 

1251 

1252 

1253 

1254 

1255 

1257 
1258 
1259 



* 
* 



OUTCi 
0UTC3 



* 
0UTC4 



0UTC5 

#■ 
OUTDl 



0UTD2 

* 



ID 

STO 

LD 

OR 

STO 

BS! 

BSC 



ID 

STO 

ID 

STO 

BSl 

LD 

STO 

BS! 

BS! 

STO 



LD 

BSC 

MDX 

LD 

BS! 

BSC 

MDX 

LD 

BSC 

LD 

STO 

BS! 

LD 

STO 

LD 

STO 



* 



* 
* 



* 
0UTD3 



# 
0UTD4 



LD 
BSl 

AND 
BSC 



LD 
BSl 

MDX 



LD 
BSl 



STO 



SET 


MOpE SWITCH 


TO*F 


•1XBD POINT 


OUTPUT 




PUT 


L 


NAMi, 


UN 


OUTPUT STRING 


WAS 


NAME~FIXEP PT 


BRANCH 


IF YES 



ONE-Z 

MQDSW-Z 

NAME-Z 

H8800-Z 



SYMT-Z 
OUTCI, Z 



CHANGE MOOESWJTCH AND 

REPLACE OUTPUT BY FLOATING ARJTHM 

HF800.Z SET MODE SWITCH 

MQDSW,Z TO FLOATjNli POINT 

FLD-Z LOAD ,QALL FLO, 

PUT UN O/P STRING 

INCR-Z MOVE" O/P PT# INCREMENT NORM 

NAME-Z UOAP NAME 

PUf UN O/P STRING 

INCR-Z MOVE' O/P PT# INCREMENT NORM 

G6TQT.Z REPLACE STORED NAME BY 

NAME-Z GENERATED TEMPORARY 



QPERTR, 
3 MQDSW-Z 

OUT05 
3 NAME-Z 
3 SYMT-Z 

OUTOl 
3 FJXI-Z 
L 0UT43 

3 FLT-Z 

2 

3 INCR-Z 
3 HF8Q0-Z 

3 MQDSW.Z 



EXP 
TEST MODE SWITCH 
SKIP IF FUEP PT 
BRANCH IF NOT 
LOAD~NAME 

GET SYM TBL 10 *ORD 
SKIP" IF integer NAME 
BRANCH IF NOT 
LOAD",CALL FIXI, 
OUTPUT CALL* WE 

LOAD ,CAUL FLTi 

PUf UN O/P STRING 

MOVE "O/P PT# INCREMENT NORM 

SET MOJ) SWJTCH 

f0"FL0ATlNG PT 



3 TWO-Z MAKE CODE WORD IN O/P STRflN 

2 INTO A 2-WORP CALL OPTR 

TEST IF NAME UlMENSjONED 

3 NAME-Z LDADNAME 

3 SYMT-Z efit SYM TBL I D W ° RD 
3 H300Q-Z IS"IT OlMENSjONEp 
L 0UTD3, - BRANCH IF NOT 

OUTPUT 2**0 CALL FAXBX 
3 FAXBX.Z LOAD tCALL FAXBX t 
L CAXBX, - BRANCH Tg MAKE SYM TBL EOT 
If 'NUT THERE ALREADY 
0UTD4 MOVE' PT 

OUTPUT 2-WO CALL iFAXBi 
3 FAX8-Z LOAD «CALL WX, 
L CAXBi • BRANCT TO MAKE SYM TBL ENTR 
JF'NUT THERE ALREADY 



2 1 



OUTPUT WORD 
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1260 

1261 

1262 

1263 

1264 

1265 

1266 

1267 

1268 

1269 

1270 

1271 

1272 

1273 

1274 

1275 

1276 

1277 

1278 

1279 

1260 

1281 

1282 

1283 

1284 

1285 

1286 

1287 

1288 

1289 

1290 

1291 

1292 

1293 

1294 

1295 

1296 

1297 

1298 

1299 

1300 

1301 

1302 

1303 

1304 

1305 

1306 

1307 

1308 

1309 

1310 

1311 

1312 

1313 

1314 

1315 

1316 

1317 

1318 

1319 



BSI 

* 

OUTDX BSC 

# 

0UTD5 ID 
BSI 
BSC 
MDX 

* 

ID 
MDX 



* 
OUTF1 



* 
0UTF4 



* 
OUTG1 



# 
0UTG4 

* 
* 
* 

GTMOD 



ID 

BSC 

MDX 

UD 

STO 

UD 

AND 

A 

STO 

BSI 

ID 

MDX 

UD 

MDX 



UD 

BSC 

MDX 

UD 

STO 

UD 

OR 

STO 

UD 

STO 

BSI 

BSI 

UD 

MDX 

UD 
MDX 



GTMOl 



DC 

STO 

BSI 

UD 

BSC 

UD 

MDX 

UD 



3 INCR-Z 

3 NAMEpZ 
U OUT12 

3 NAME-Z 
3 SYMT-Z 

OUTD2 

3 FAXI-Z 

0UTC5 

REVERSE 
3 STNA1-Z 



0UTF4 

STOFA-Z 



NAME-Z 
HQ7FF.Z 

UDU-Z 

1 

INCR-Z 

SFAC-Z 

OUTDX 



hi 



3 FSBR-Z 

OUTC5 

REVERSE 
3 STNA1-Z 



OUT84 

STOFA-Z 



NAME*Z 

UDU-Z 

1 

SRT16»Z 

2 

INCR-Z 
INCR-Z 
DFAC-Z 
OUTDX 



MOVE O/P PTi INCREMENT NQRM 

U,OAP NAME 
OUTPUT NAME 

UOAD NAMfc 

GET SYM T8U IP WORD 
SKIP~JF INTEGER 
BRANCH If NOT 

1,0 AO ,CAUU FAXit 
OUTPUT CALU 

syB 

LOAD SYM TiU ID WORD 

SKIP IF INTEGER 

BRANCH IF NOT 

UOAP" ,STQ FAG li 

RUf UN O/P STRING 

,OAD" NAMfe 

let SYM TBt ENTRY NO 

COMBINE WITH iUP Ui 

PUT ON O/P STRING 

MOVE O/P PT# INCREMENT NORM 

LOAD ,S rAC li 

dUTPyf 

UOAD x CAUU FSBR, 
OUTPUT 

1 v X PI? 

LOAD'SYM TBU ID WORD 
SKIP IF INTEGER 
BRANCH IT NOT 
LOAD", STO FAC li 
OUTPUT 
|,OAD"NAMfe 

COMBINE WITH iUP Ui 
PUT UN O/P STRING 
L.OAD ,$RI 16, 
PUT UN O/P STRING 
INCREMENT NORM, MOVE O/P PT 
INCREMENT NORM, MOVE O/P PT 
.OAD',0 "FAC 1, 
lUfPUT 



ii! 



3 FDVR-Z 
0UTC5 



UOAD ,0AUU FDVR, 
OUTPUT 



MAKES THE MODE 0? THE GT AGREE WITH 
THE CURRENT'MUDE UF THE MODE SW 

ENTRY POINT 

3 GTM03.Z SA9E' WQRO 

3 SYMT-Z QEf SYM TBU \D WORD 

3 MODSW.Z TEST~MQDE 

. GTMOl, «ANOH JF FUOATINQ PT 

3 H4028.Z SEf ID WyRp TO FJXED PT 

GTM02 PUT IN TABUE 

3 HQ028„Z SET ID WURp JO FUOATING PT 



SEITE 23 



1320 
1321 
1322 
1323 
1324 
1325 
1326 
1327 
1328 
1329 
1330 
1331 
1332 
1333 
1334 
1335 
1336 
1337 
1338 
1339 
1340 
1341 
1342 
1343 
1344 

1345 
1346 
1347 
1348 
1349 
1350 
1351 
1352 
1353 
1354 
1355 
1356 
1357 
1358 
1359 
1360 
1361 
1362 
1363 
1364 
1365 
1366 
1367 
1368 
1369 
1370 
1371 
1372 
1373 
1374 
1375 
1376 
1377 
1378 
1379 



GTM02 STO 
UD 
BSC 

* 

# 

CAXB DC 

* 
* 
* 

BSI 
STO 
STO 

* 

LDD 

CAXBl STD 

* 

* 

STX 
LDX 
LD 
STO 

* 

* 



LD 
SLA 

BSC 



ID 

STO 

CAXB2 IDD 
STO 
RTE 

STO 

CAXB3 UDX 
ID 
BSC 

* 

CAXBX DC 
LD 
STO 
BSI 
STO 
STO 
LDD 
MDX 



I SYMT1 1 STORfc IN TABLE 
3 GTMQS-Z RESTORE ACCUMULATOR 
J GTMOO RETURN 



MAKES THE SYM TBL ENTRY FOR THE 
SUBROUTINE NAMES FAXB AND EAXP SINCE 
THEY ARE SpW'QRD CALLS 

ENTRY POINT 

GET NAH OF NfcXT 8YMT ENTRY 
AND STORE 

3 STENT-Z GET NEXT SYM TBU ENTRY NOi 

s faxb-z Save entry noi 

CAXBX SAVE ENTRY NO! 

NAME1 GEI fcBC»NAME iFABX, 
3 TEMP-Z STORfc NAME 

MAKE SYMBOL TABLE Ip-WD ENTRY 
LI CAXB3 1 SAVE I/P PT 
U EQFST LOAD XRl WJTH END OF STRING 

3 HQ080-Z MAKE 10 WORD A SUBPROGRAM. 

13 , PUT JN SYM TBL 

IF EXTENDED PHECi CHANGE 
NAME: 



L 
L 



CCWD 

13 
CAXB2, 



IS THERE STANDARD PRECISION 
BRANCH JFY|S 



CHANGE NAME TO BEGIN WITH ,E, 
NAME3 CHANGE ,FAXB, 
fO'ifcAXBt 



3 TEMP-Z 

3 TEMP*Z 
1 4 
16 

LI *»* 
CAXBX 

I CAXB 



LOAD NAME 

PUT 1ST WORD IN SYM TBL 

PUT 2ND WORD IN SYM TBL 
RESTURE J/P Pi 

load' subprogram name 

RETURN 



MAKES THE SYM TBL ENTRY FOR THE 
SUBROUTINE NAMES FAXBX AND EAXBX 
SJNCE THEY ARb 2»WD CALLS 

ENTRY POINT 
CAXBX MOVE' RETURN ADDR SO CAN USE 
CAXB t CA'LL FABX, SUBROUTINE 
3 STENT-Z GET NEXT SYM TBL ENTRY NO* 
CAXBX STORfc 
STORfc 



3 FAX8X-Z 
NAME2 
CAXB1 



OAD e§>c»name ,faxbx, 



LOAD 

PUT I 



N SYM TBL 



S- 





SEITE 


24 






1380 


* 










1381 


* 






CONSTANTS 


1382 




BSS 


E 







1383 


NAME1 


DC 




/8CQC 


EBC-NAME 


1384 




DC 




/fobo 


•FAXS, 


1385 


NAME2 


DC 




/8C0C 


EBCpNAME 


1386 




DC 




/F0A7 


.FAXUX, 


1387 


NAMES 


DC 




/8A0C 


IPC-NAME ,EAXi 


1388 
1389 
1390 


* 










# 
* 






UOCATES 


THE NfcXT OPTR N 01 YET 


1391 


• 






PROCESSED 


1392 


* 










1393 


FINDN 


DC 







ENTRY pO|NT 


1394 




STO 


3 


TEMP«Z 


STORb p/H |W1TCH 


1395 




MDX 


1 


2 


Initialise pointer 


1396 




STX 


1 


PFIND 


SAVE I/P PT 


1397 


FJNDA 


UD 


I 


PFINO 


LOAD WpRO IN STMNT 


1398 




S 


3 


M190Q-Z 


JSWURP tCAUU SUBSCR, 


1399 




BSC 


U 


MVSUB, - 


BRANCH IF YES 


1400 




S 


3 


MDXLl*Z 


is" it ,mux uii 


1401 




BSC 


U 


MV3 # «. 


BRANCH IF YES 


1402 




s 


3 


LDXU-Z 


IS" IT ,UDX Uli 


1403 




BSC 


U 


MV2# «■ 


BRANCH IF YES 


1404 




S 


3 


LDXI-Z 


iS'lf ,UOX 111 


1405 




BSC 


U 


MV2, w 


BRANCH IF YES 


14Q6 




S 


3 


STXU1»Z 


IS'lf ,STX Lii 


1407 




BSC 


U 


MV2, - 


BRANCH IF YES 


1408 




UD 


I 


PFIND 


RESTORE WORD 


1409 

A * it ft 




BSC 


I 


FINDN 


^TUKN 


1410 
1411 


* 
MV3 


BSI 




MOVE1 


MOVE WpRU TO O/P STRJNG 


1412 


MV2 


BSI 




MOVE! 


HOVE WORD TO O/P STRING 


1413 


MV1 


BSI 




MOVE! 


MOVE WpRO TO O/P STRING 


1414 




MDX 




FJNDA 


REfUKN 


1415 


HVSUB 


BSI 




MOVE1 


HQ?E"WpRp TO 0/ p STRING 


1416 




BSI 




MQVE1 


HOVE WpRD TO O/P STRJNG 


1417 


MVSl 


BSI 




MOVE! 


HOVE WpRp TO O/P STRJNG 


1418 




BSI 




MQVE1 


HOVg WpRO TO O/P STRING 


1419 




LD 


I 


PFIND 


UOAD WQRD 


1420 




BSC 


u 


MVSl** 


BRANCH IF NOT TAGGED 


1421 




MDX 




MV1 


MQVE'WQRD, RETURN 


1422 


* 










1423 


MQVE1 


DC 







ENTRY POJNT 


1424 




LD 


3 


TEMP-Z 


TEST SWITCH 


1425 




BSC 


U 


MQVEX,Z 


BRANCH NOT OUTPUT 


1426 




UD 


I 


PFIND 


LOAD'WQRD 

PUT UN O/P STRING 


1427 




BSI 


3 


OUTUN.Z 


1428 




MDX 


1 


1 


HOVE I/P- PT 


1429 


MQVEX 


MDX 


U 


PFIND,! 


HOVE SUBROUTINE PT 


1430 




BSC 


I 


MQVE1 


REfUKN 


1431 


* 










1432 


PFIND 


DC 







POINTER IN SUBROUTINE 


1433 


* 










1434 


* 










1435 


* 






NOT IN I 


;ard system 


1436 
1437 
1438 


* 










* 
* 






OUTPUTS 


DISK HEAD/WRITE stmnts 


1439 


# 
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1440 
1441 
1442 
1443 
1444 
1445 
1446 
1447 
1448 
1449 
1450 
1451 
1452 
1453 
1454 
1455 
1456 
1457 
1458 
1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 

1469 

1470 

1471 

1472 

1473 

1474 

1475 

1476 

1477 

1478 

1479 

1480 

1481 

1482 

1483 

1484 

1485 

1486 

1487 

1488 

1489 

1490 

1491 

1492 

1493 

1494 

1495 

1496 



D50H 



LD 

AND 

SRA 

A 

S 

STO 

ID 

BSJ 

8SC 



* 
D5013 



MDX 

ID 

BSI 

STX 

ID 

S 

esc 

esc 



* 
* 

D5021 



D5023 



LDX 

LDX 

ID 

STO 

ID 

SLA 

BSC 

UD 

STO 

ID 

STO 

MDX 

ID 

STO 

MDX 

LDX 



* 

EXPRO 

HA008 

HAOOD 

ERNO 

NXTID 

TSXl 

* 
* 



DC 
DC 
DC 
DC 
DC 
DC 



BSS 

END 



JMID l*OAO STMNT ID WORD 

3 H07FCpZ set NORM 

2 RIGHT JUSTJFY 

3 INID-Z SET AOpR Or NEXT STMNT 

3 ONE-Z SUBTHACT ONE 

NXTJO SAVE'ADDKESS 

i 3 LOAD WORD 

3 SYMT»Z 2Ef 5»YM TBL JD WORD 

, D5021,» §RANgH IF NOT INTEGER 

OUTPUT REST OF READ/WRITE 

STATEMENT 

1 MOVE J/P PT 

LOAD WQRD 

OUTUN-Z PUT gN O/P STRING 

TSXl STORfe J/P pT 

TSXl tEST'FQR END 

NXTIP OF STMNT 

L P1021,- BRANCH IF END OF STMNT 

L D5013 CONTINUE O/P 

ERROR ENCOUNTERED 
EXPRESSION NOT JNTE5ER 
IN READ/WRITE STMT 



12 
II 

2 
1 



2 
1 
2 
2 

2 

2 
It 



OUTIO 

INIO 
HA008 



15 
05023,^ 

HAOOD 



1 
1 
1 
ERNO 

1 
NXTID 



BSC L P1021 



/Q054 
/A008 
/AOOD 

73 






RESET Q/P PT 

RESET I/P PT 

LOAD'ERROR STMNT ID WORD 

PUt UN O/P SfRJNQ 

LOAD SyMNT ID WORD 

DOES STMNT HAVE STMNT NO, 

BRANCH IF NOT 

REPLACE ERROR ID WORD WITH 

|RROh WOHD WITH STMNT NO, 

t,OAD*STMNT NOi 

PUt UN O/P- STRING 

MOVE' O/P PT 

LOAD ERROR NOi 

PUT UN O/P STRJNG 

MOVE O/P PT 

MOVE I/P PT T° N ^XT STMNT' 

PROCESS NEXT STMNT 

EXPRfcS§lQN OPERATOR 
fRRQK STMNT JD WORD 
fRRQK JD WJTH STMNT MO, 
ERROH NOft 73 

ADDR'OF NEXT I/P STMNT •■ 1 
INPUT PTK SAVE 



OVERL-**320*4 
START 



PHASI-18 PATCH AREA, 



* 



